home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t9.d64 / more menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  48 lines
  1. 10 REM ** PREPARED BY DAVID BRADLEY **
  2. 90 PRINT"[147]"
  3. 100 POKE53280,0:POKE53281,0:PRINT"";
  4. 110 READNM:DIMTT$(NM),TL$(NM),RN$(NM)
  5. 120 FORI=1TONM:READTT$(I),TL$(I),RN$(I):NEXTI
  6. 125 PRINT"[147]":PRINTTAB(10):PRINT"[129]****[158][205][197][206][213]/[204][207][193][196][197][210][146]***[129]*[158]":PRINT
  7. 135 PRINT"[197][206][212][197][210][160][217][207][213][210][160][195][200][207][201][195][197][160][193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][146]"
  8. 137 PRINT:PRINT
  9. 140 FORI=1TONM
  10. 150 PRINTTAB(12)RIGHT$("0"+MID$(STR$(I),2),2)") "TT$(I)
  11. 155 NEXTI
  12. 162 REM *RIATE LINE 163 THROUGH 169.  *         *******************************
  13. 164 PRINT"[156][212][208][213][199] [205][193][217] [195]64 [196][201][211][203] ([205][197][206][213] #2)[146][158]"
  14. 170 INPUT"[217][207][213][210][160][195][200][207][201][195][197]";A$
  15. 171 IFA$="Q"THENPRINT"[147]":END
  16. 172 IFA$="L"THENPRINT"[147]":LIST
  17. 180 A=VAL(A$):IF(A<1ORA>NM)ANDA$<>CHR$(80)THENPRINT"[145]";:GOTO170
  18. 185 IFA$=CHR$(80)THENGOSUB250:PRINT"";:GOTO170
  19. 190 PRINT"[147][142]LOAD"CHR$(34)TL$(A)CHR$(34)",8,1"
  20. 200 PRINT""RN$(A)
  21. 210 POKE198,3:POKE631,19:POKE632,13:POKE633,13
  22. 220 END
  23. 250 RESTORE:READNM
  24. 252 FORI=1TONM:READTT$(I),TL$(I),RN$(I):NEXTI
  25. 270 OPEN4,4:PRINT#4,CHR$(10)CHR$(10)CHR$(10);"  ":CD$=CHR$(17)
  26. 272 FORI=1TONM:PRINT#4,CD$;CHR$(16);"15";TT$(I):NEXTI
  27. 274 PRINT#4,"   "CHR$(10)CHR$(10):CLOSE4:RETURN
  28. 900 REM
  29. 910 REM
  30. 920 REM
  31. 990 REM PROGRAM DATA
  32. 1000 DATA 15
  33. 1010 DATA"[210]ELATIVE [198]ILE [205]ANAGER",REL FILE BOOT.C,RUN
  34. 1020 DATA"[211]PRITE [196][193][212][193]",SPRITE DATA.C,RUN
  35. 1030 DATA"[211]UPER [205]ASTERMIND",SUPER MIND.C,RUN
  36. 1040 DATA"[204]ABLE [205]AKER",LABEL MAKER.C,RUN
  37. 1050 DATA"[195]OPY-[193][204][204] [214]ERSION 2",COPY-ALL V2.C,RUN
  38. 1060 DATA"[194]IG [195]HARACTER [211]ET",BIG SET.C,RUN
  39. 1070 DATA"[211]INE [201]N",SINE IN.C,RUN
  40. 1080 DATA"[212]INY [196]IRECTORY",TINY DIRECTORY.C,RUN
  41. 1090 DATA"[196]ISK [205]AP",DISK MAP.C,RUN
  42. 1100 DATA"[196]ISK [205]AP [204]IST-[205]E",LIST-ME MAP.L,LIST
  43. 1110 DATA"[196]IRECTORY [204]IST [211]ORT",DIR LIST SORT.C,RUN
  44. 1120 DATA"[195]HOPPER",CHOPPER.C,RUN
  45. 1130 DATA"[211]TOCK [205]ARKET",STOCK.C,RUN
  46. 1140 DATA"[195]LASS [205]ANAGEMENT",CLASS PROGRAM.C,RUN
  47. 1150 DATA"[197][214][197][206] [205][207][210][197] [205][197][206][213]",EVEN MORE MENU,RUN
  48.